home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dsielink / frmdemo1.fr_ (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-16  |  9.8 KB  |  295 lines
  1. VERSION 5.00
  2. Object = "{03B95A9D-DBDD-11D2-87A3-97F32F5E191C}#1.1#0"; "DSIELink.ocx"
  3. Begin VB.Form FrmDemo1 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Demo of the URL link control.."
  6.    ClientHeight    =   3735
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7170
  10.    Icon            =   "FrmDemo1.frx":0000
  11.    LinkTopic       =   "FrmDemo1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3735
  15.    ScaleWidth      =   7170
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame Frames 
  18.       Caption         =   "Styles..."
  19.       Height          =   1815
  20.       Index           =   4
  21.       Left            =   4680
  22.       TabIndex        =   17
  23.       Top             =   1320
  24.       Width           =   2415
  25.       Begin VB.CheckBox DatShowTooltip 
  26.          Caption         =   "Show Tooltip"
  27.          Height          =   195
  28.          Left            =   480
  29.          TabIndex        =   19
  30.          Top             =   480
  31.          Value           =   1  'Checked
  32.          Width           =   1335
  33.       End
  34.       Begin DSIELink.IELink Links 
  35.          Height          =   225
  36.          Index           =   2
  37.          Left            =   240
  38.          TabIndex        =   18
  39.          Top             =   240
  40.          Width           =   690
  41.          _ExtentX        =   1217
  42.          _ExtentY        =   397
  43.          Caption         =   "Test Link"
  44.          URL             =   "file://C:\"
  45.          Hover           =   0   'False
  46.          IESync          =   3
  47.       End
  48.       Begin VB.Label LblLabels 
  49.          AutoSize        =   -1  'True
  50.          Caption         =   $"FrmDemo1.frx":0442
  51.          Height          =   1050
  52.          Index           =   2
  53.          Left            =   120
  54.          TabIndex        =   20
  55.          Top             =   720
  56.          Width           =   2250
  57.          WordWrap        =   -1  'True
  58.       End
  59.    End
  60.    Begin VB.Frame Frames 
  61.       Caption         =   "Mouse behaviour..."
  62.       Height          =   2295
  63.       Index           =   1
  64.       Left            =   2640
  65.       TabIndex        =   9
  66.       Top             =   1320
  67.       Width           =   1935
  68.       Begin VB.Frame Frames 
  69.          Caption         =   "URL MousePointer..."
  70.          Height          =   735
  71.          Index           =   3
  72.          Left            =   120
  73.          TabIndex        =   15
  74.          Top             =   1440
  75.          Width           =   1695
  76.          Begin VB.ComboBox DatPointer 
  77.             Height          =   315
  78.             Left            =   120
  79.             Style           =   2  'Dropdown List
  80.             TabIndex        =   16
  81.             Top             =   240
  82.             Width           =   1455
  83.          End
  84.       End
  85.       Begin VB.Frame Frames 
  86.          Caption         =   "URL Response..."
  87.          Height          =   855
  88.          Index           =   2
  89.          Left            =   120
  90.          TabIndex        =   10
  91.          Top             =   480
  92.          Width           =   1695
  93.          Begin VB.OptionButton DatResponse 
  94.             Caption         =   "&On MouseClick"
  95.             Height          =   255
  96.             Index           =   1
  97.             Left            =   120
  98.             TabIndex        =   12
  99.             Top             =   480
  100.             Width           =   1455
  101.          End
  102.          Begin VB.OptionButton DatResponse 
  103.             Caption         =   "&On MouseDown"
  104.             Height          =   255
  105.             Index           =   0
  106.             Left            =   120
  107.             TabIndex        =   11
  108.             Top             =   240
  109.             Value           =   -1  'True
  110.             Width           =   1455
  111.          End
  112.       End
  113.       Begin DSIELink.IELink Links 
  114.          Height          =   225
  115.          Index           =   1
  116.          Left            =   120
  117.          TabIndex        =   14
  118.          Top             =   240
  119.          Width           =   690
  120.          _ExtentX        =   1217
  121.          _ExtentY        =   397
  122.          Caption         =   "Test Link"
  123.          Hover           =   0   'False
  124.       End
  125.    End
  126.    Begin VB.Frame Frames 
  127.       Caption         =   "Styles..."
  128.       Height          =   1575
  129.       Index           =   0
  130.       Left            =   120
  131.       TabIndex        =   4
  132.       Top             =   1320
  133.       Width           =   2415
  134.       Begin DSIELink.IELink Links 
  135.          Height          =   225
  136.          Index           =   0
  137.          Left            =   240
  138.          TabIndex        =   13
  139.          Top             =   240
  140.          Width           =   690
  141.          _ExtentX        =   1217
  142.          _ExtentY        =   397
  143.          Caption         =   "Test Link"
  144.          Style           =   0
  145.          Hover           =   0   'False
  146.       End
  147.       Begin VB.OptionButton DatStyle 
  148.          Caption         =   "&Graphical (See Form 3)"
  149.          Enabled         =   0   'False
  150.          Height          =   255
  151.          Index           =   3
  152.          Left            =   240
  153.          TabIndex        =   8
  154.          Top             =   1200
  155.          Width           =   2055
  156.       End
  157.       Begin VB.OptionButton DatStyle 
  158.          Caption         =   "&Hover (Focus) Underline"
  159.          Height          =   255
  160.          Index           =   2
  161.          Left            =   240
  162.          TabIndex        =   7
  163.          Top             =   960
  164.          Width           =   2055
  165.       End
  166.       Begin VB.OptionButton DatStyle 
  167.          Caption         =   "&Always Underline"
  168.          Height          =   255
  169.          Index           =   1
  170.          Left            =   240
  171.          TabIndex        =   6
  172.          Top             =   720
  173.          Width           =   1575
  174.       End
  175.       Begin VB.OptionButton DatStyle 
  176.          Caption         =   "&Never Underline"
  177.          Height          =   255
  178.          Index           =   0
  179.          Left            =   240
  180.          TabIndex        =   5
  181.          Top             =   480
  182.          Value           =   -1  'True
  183.          Width           =   1455
  184.       End
  185.    End
  186.    Begin VB.CommandButton BtnDemo 
  187.       Caption         =   "Demo &Form 3"
  188.       Height          =   375
  189.       Index           =   1
  190.       Left            =   6000
  191.       TabIndex        =   1
  192.       ToolTipText     =   "Graphical Approach Style? Click here for more..."
  193.       Top             =   120
  194.       Width           =   1095
  195.    End
  196.    Begin VB.CommandButton BtnDemo 
  197.       Caption         =   "&Demo Form 2"
  198.       Height          =   375
  199.       Index           =   0
  200.       Left            =   4800
  201.       TabIndex        =   0
  202.       ToolTipText     =   "IE Synchronised Properties? Click here for more..."
  203.       Top             =   120
  204.       Width           =   1095
  205.    End
  206.    Begin VB.Label LblLabels 
  207.       AutoSize        =   -1  'True
  208.       Caption         =   "This form shows the different styles and methods of text display for the URL Control."
  209.       Height          =   195
  210.       Index           =   1
  211.       Left            =   120
  212.       TabIndex        =   3
  213.       Top             =   1080
  214.       Width           =   5970
  215.       WordWrap        =   -1  'True
  216.    End
  217.    Begin VB.Label LblLabels 
  218.       AutoSize        =   -1  'True
  219.       Caption         =   $"FrmDemo1.frx":04C9
  220.       Height          =   780
  221.       Index           =   0
  222.       Left            =   720
  223.       TabIndex        =   2
  224.       Top             =   120
  225.       Width           =   3690
  226.       WordWrap        =   -1  'True
  227.    End
  228.    Begin VB.Image ImgLogo 
  229.       Height          =   480
  230.       Left            =   120
  231.       Picture         =   "FrmDemo1.frx":0587
  232.       Top             =   120
  233.       Width           =   480
  234.    End
  235. Attribute VB_Name = "FrmDemo1"
  236. Attribute VB_GlobalNameSpace = False
  237. Attribute VB_Creatable = False
  238. Attribute VB_PredeclaredId = True
  239. Attribute VB_Exposed = False
  240. Option Explicit
  241. Private Sub BtnDemo_Click(Index As Integer)
  242.     Me.Hide
  243.     If Index = 0 Then
  244.         FrmDemo2.Show
  245.     Else
  246.         FrmDemo3.Show
  247.     End If
  248. End Sub
  249. Private Sub DatPointer_Click()
  250.     FrmDemo1.Links(1).MousePointer = FrmDemo1.DatPointer.ListIndex
  251. End Sub
  252. Private Sub DatPointer_KeyPress(KeyAscii As Integer)
  253.     FrmDemo1.Links(1).MousePointer = FrmDemo1.DatPointer.ListIndex
  254. End Sub
  255. Private Sub DatPointer_Scroll()
  256.     FrmDemo1.Links(1).MousePointer = FrmDemo1.DatPointer.ListIndex
  257. End Sub
  258. Private Sub DatResponse_Click(Index As Integer)
  259.     FrmDemo1.Links(1).Response = Index
  260. End Sub
  261. Private Sub DatShowTooltip_Click()
  262.     FrmDemo1.Links(2).ShowToolTip = (FrmDemo1.DatShowTooltip.Value = 1)
  263. End Sub
  264. Private Sub DatStyle_Click(Index As Integer)
  265.     FrmDemo1.Links(0).Style = Index
  266. End Sub
  267. Private Sub Form_Load()
  268.     'Handle the "Response" property demo...
  269.     If App.PrevInstance Then
  270.         MsgBox "You clicked the URL!!"
  271.         End
  272.     End If
  273.     FrmDemo1.DatPointer.AddItem "{Default}"
  274.     FrmDemo1.DatPointer.AddItem "Arrow"
  275.     FrmDemo1.DatPointer.AddItem "Cross"
  276.     FrmDemo1.DatPointer.AddItem "I-Beam"
  277.     FrmDemo1.DatPointer.AddItem "Icon"
  278.     FrmDemo1.DatPointer.AddItem "Size"
  279.     FrmDemo1.DatPointer.AddItem "SizeNESW"
  280.     FrmDemo1.DatPointer.AddItem "SizeNS"
  281.     FrmDemo1.DatPointer.AddItem "SizeNWSE"
  282.     FrmDemo1.DatPointer.AddItem "SizeEW"
  283.     FrmDemo1.DatPointer.AddItem "Up Arrow"
  284.     FrmDemo1.DatPointer.AddItem "Hourglass"
  285.     FrmDemo1.DatPointer.AddItem "No Drop"
  286.     FrmDemo1.DatPointer.AddItem "Arrow and Hourglass"
  287.     FrmDemo1.DatPointer.AddItem "Arrow and Question Mark"
  288.     FrmDemo1.DatPointer.ListIndex = 0
  289.     FrmDemo1.Links(0).URL = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "") & "Demo"
  290.     FrmDemo1.Links(1).URL = FrmDemo1.Links(0).URL
  291. End Sub
  292. Private Sub Form_Unload(Cancel As Integer)
  293.     End
  294. End Sub
  295.